home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 46 / 64er_Magazin_Sonderheft_46_19xx_Markt__Technik_de_Side_A.d64 / stundenplan 64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  10KB  |  353 lines
  1. 10 rem ********************************
  2. 15 rem ********************************
  3. 20 rem **                            **
  4. 25 rem **       stundenplan 64       **
  5. 30 rem **       --------------       **
  6. 35 rem **============================**
  7. 40 rem **                            **
  8. 45 rem ** idee & programm von:       **
  9. 50 rem **                            **
  10. 55 rem ** guido lemmel               **
  11. 60 rem ** barmbeker weg 10 c         **
  12. 65 rem ** 1000 berlin 20             **
  13. 70 rem **                            **
  14. 71 rem ** ueberarbeitung, speed-up   **
  15. 72 rem ** und artikel:               **
  16. 73 rem **                            **
  17. 74 rem ** nikolaus heusler, 290689   **
  18. 75 rem ** fuer markt & technik       **
  19. 76 rem ** 64'er sonderheft 46        **
  20. 77 rem **                            **
  21. 78 rem ********************************
  22. 80 rem ********************************
  23. 85 :
  24. 90 rem - initialisieren -
  25. 95 :
  26. 100 clr
  27. 105 dim w$(48),fa$(19)
  28. 110 cs=58640:zs=59903:bs=53265:hard=0
  29. 115 for i=1 to 6:read wt$(i):next i
  30. 120 for ii=1 to 18:read fa$(ii):next ii
  31. 125 bt$(0)=chr$(15):bt$(1)=chr$(14)
  32. 130 ps$=chr$(27)+chr$(16)
  33. 135 :
  34. 140 rempoke 808,234:goto 790
  35. 141 goto 790
  36. 145 :
  37. 150 rem - meldungen ausgeben -
  38. 155 :
  39. 160 print"[147][158][194]etrifft: ";meld$(1)
  40. 165 print"[151][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  41. 170 print"[221]                                      [221]";
  42. 175 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][146]";
  43. 180 print"                <[212][193][211][212][197]>"
  44. 185 print"[145][145][145][145][151]";meld$(2)
  45. 190 poke 198,0:wait 198,1:poke 198,0
  46. 195 return
  47. 200 :
  48. 205 rem - floppystatus -
  49. 210 :
  50. 215 input#15,f$(1),f$(2),f$(3),f$(4)
  51. 220 if f$(1)="00" then return
  52. 225 meld$(1)="[198]loppy":meld$(2)=f$(1)+","+f$(2)+","+f$(3)+","+f$(4)
  53. 230 if f$(1)="01" then 240
  54. 235 if f$(1)<>"0" then ein=0
  55. 240 gosub 160
  56. 245 return
  57. 250 :
  58. 255 rem - floppy eingeschaltet ? -
  59. 260 :
  60. 265 poke 768,61:open 1,8,15,"i":close 1
  61. 270 poke 768,139:if st<>-128 then return
  62. 275 meld$(1)="[198]loppy":meld$(2)="[196]ie [198]loppy ist nicht eingeschaltet !"
  63. 280 gosub 160:goto 265
  64. 285 return
  65. 290 :
  66. 295 rem - drucker eingeschaltet ? -
  67. 300 :
  68. 305 open 1,4:poke 768,61:print#1:close 1
  69. 310 poke 768,139:if st<>-128 then return
  70. 315 meld$(1)="[196]rucker":meld$(2)="[196]er [196]rucker ist nicht eingeschaltet !"
  71. 320 gosub 160:goto 305
  72. 325 return
  73. 330 :
  74. 335 rem - daten speichern -
  75. 340 :
  76. 345 gosub 265
  77. 350 open 15,8,15,"s:stundenplan":close 15
  78. 355 open 1,8,2,"stundenplan,s,w"
  79. 360 for i=1 to 48:print#1,w$(i):next i
  80. 365 close 1:open 15,8,15:gosub 215:close 15:return
  81. 370 :
  82. 375 rem - daten laden -
  83. 380 :
  84. 385 gosub 265
  85. 390 open 1,8,2,"stundenplan,s,r"
  86. 395 for i=1 to 48:input#1,w$(i):next i
  87. 400 close 1:open 15,8,15:gosub 215:close 15:return
  88. 405 :
  89. 410 rem - directory - aus 64'er 8/87
  90. 415 :
  91. 420 gosub 265:open 15,8,15:gosub 215
  92. 425 if f$(1)<>"00" then close 15:gosub 160:return
  93. 430 close 15:open 1,8,0,"$":print"[147]":poke 781,1:sys 65478:get a$,a$:e$=chr$(0)
  94. 435 geta$,a$,h$,l$:ifstthensys65484:close1:poke198,0:wait198,1:poke198,0:return
  95. 440 print asc(h$+e$)+256*asc(l$+e$);
  96. 445 get a$,b$:if a$ then print a$b$;:goto 445
  97. 450 print a$:goto 435
  98. 455 :
  99. 460 rem - floppy-befehle -
  100. 465 :
  101. 470 gosub 265:print#15,be$:gosub 215:return
  102. 475 gosub 265:print#15,"s:stundenplan":gosub 215:return
  103. 480 :
  104. 485 rem - eingaberoutine -
  105. 490 :
  106. 495 b$="":get b$:if b$="" then 495
  107. 500 if len(ei$)<>0 and b$=chr$(20) then ei$=left$(ei$,len(ei$)-1):goto 535
  108. 505 if b$=chr$(13) or b$="_" then return
  109. 510 if len(ei$)>lw then 495
  110. 515 if b$=chr$(20) then 495
  111. 520 if len(ei$)=0 and b$=" " then 495
  112. 525 if b$="[147]" or b$="" or b$="[160]" or b$="" or b$="[145]" or b$="" or b$="[157]"then495
  113. 530 ei$=ei$+b$
  114. 535 print chr$(20);b$;"[164]";:goto 495
  115. 540 :
  116. 545 rem - stundenplan ausgeben -
  117. 550 :
  118. 555 print"[176][192][178][192][192][192][192][192][178][192][192][192][192][192][178][192][192][192][192][192][178][192][192][192][192][192][178][192][192][192][192][192][178][192][192][192][192][192][174]"
  119. 560 print"[221]:[221] [205][207][206] [221] [196][201][197] [221] [205][201][212] [221] [196][207][206] [221] [198][210][197] [221] [211][193][205] [221]"
  120. 565 print"[171][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][179]"
  121. 570 print"[221]1[221]";w$(1);"[221]";w$(9);"[221]";w$(17);"[221]";w$(25);"[221]";w$(33);"[221]";w$(41);"[221]"
  122. 575 print"[171][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][179]"
  123. 580 print"[221]2[221]";w$(2);"[221]";w$(10);"[221]";w$(18);"[221]";w$(26);"[221]";w$(34);"[221]";w$(42);"[221]"
  124. 585 print"[171][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][179]"
  125. 590 print"[221]3[221]";w$(3);"[221]";w$(11);"[221]";w$(19);"[221]";w$(27);"[221]";w$(35);"[221]";w$(43);"[221]"
  126. 595 print"[171][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][179]"
  127. 600 print"[221]4[221]";w$(4);"[221]";w$(12);"[221]";w$(20);"[221]";w$(28);"[221]";w$(36);"[221]";w$(44);"[221]"
  128. 605 print"[171][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][179]"
  129. 610 print"[221]5[221]";w$(5);"[221]";w$(13);"[221]";w$(21);"[221]";w$(29);"[221]";w$(37);"[221]";w$(45);"[221]"
  130. 615 print"[171][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][179]"
  131. 620 print"[221]6[221]";w$(6);"[221]";w$(14);"[221]";w$(22);"[221]";w$(30);"[221]";w$(38);"[221]";w$(46);"[221]"
  132. 625 print"[171][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][179]"
  133. 630 print"[221]7[221]";w$(7);"[221]";w$(15);"[221]";w$(23);"[221]";w$(31);"[221]";w$(39);"[221]";w$(47);"[221]"
  134. 635 print"[171][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][179]"
  135. 640 print"[221]8[221]";w$(8);"[221]";w$(16);"[221]";w$(24);"[221]";w$(32);"[221]";w$(40);"[221]";w$(48);"[221]"
  136. 645 print"[173][192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][192][189]"
  137. 650 return
  138. 655 :
  139. 660 rem - bildschirmfuss -
  140. 665 :
  141. 670 for a=1 to 40:print"[164]";:next a
  142. 675 print" [194]itte waehlen [211]ie einen [205]enuepunkt aus [146]";
  143. 680 for a=1 to 40:print"[163]";:next a
  144. 685 poke bs,27:return
  145. 690 :
  146. 695 rem - stundenplan erstellt ? -
  147. 700 :
  148. 705 if ein=0 then meld$(1)="[211]tundenplan"
  149. 710 if ein=0 then meld$(2)="[197]s wurde kein [211]tundenplan eingegeben !
  150. 715 [139] ein[178]0 [167] [141] 160
  151. 720 [142]
  152. 725 :
  153. 730 [143] - bildschirmkopf -
  154. 735 :
  155. 740 [153]"load":[151] 53280,0:[151] 53281,0:[151] bs,11
  156. 745 [153]"           openortantantantantantantantantantantantantantantantan^wait"
  157. 750 [153]"           (NULL) (NULL)(NULL)(NULL)(NULL)str$val(NULL)(NULL)(NULL)atn(NULL) 64 (NULL)wait"
  158. 755 [153]"ortantantantantantantantantantan>tantantantantantantantantantantantantantantantan>tantantantantantantantantantan^";
  159. 760 [153]"(NULL)(w) 1989 chr$uido (NULL)emmel/(NULL)ikolaus left$eusler(NULL)";
  160. 765 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexpwait";
  161. 770 [142]
  162. 775 :
  163. 780 [143] - hauptmenue -
  164. 785 :
  165. 790 [141] 740
  166. 795 [153]"cont              andandandandandandandandandandandand"
  167. 800 [153]"               left$auptmenue wait"
  168. 805 [153]"              usrusrusrusrusrusrusrusrusrusrusrusr"
  169. 810 [153]"sys      f1 wait  (NULL)tundenplan eingeben
  170. 815 print"[158]      f3 [146]  [211]tundenplan sehen/loeschen
  171. 820 [153]"sys      f5 wait  (NULL)tundenplan drucken"
  172. 825 [153]"sys      f7 wait  str$isk-(NULL)enue"
  173. 830 [153]"sys      f8 wait  (NULL)rogramm verlassenlist
  174. 834 gosub 670:print"  [145][145][145][145][145][150][197]in [154][205]arkt & [212]echnik [150][208]rogramm,  64'er
  175. 835 [153]" (NULL)onderheft cont46def  atnlle (NULL)echte vorbehalten
  176. 840 e$="":get e$:if e$="" then 840
  177. 845 e=asc(e$)
  178. 850 if e=140 then print"[147]":sys 64738
  179. 855 if e<133 or e>136 then 840
  180. 860 if e=133 then gosub 1225
  181. 865 if e=134 then gosub 1395
  182. 870 if e=135 then gosub 1475
  183. 875 if e=136 then gosub 900
  184. 880 goto 790
  185. 885 :
  186. 890 rem - disk-menue -
  187. 895 :
  188. 900 gosub 740
  189. 905 print"[154]              [175][175][175][175][175][175][175][175][175][175][175][175]"
  190. 910 print"               [196]isk-[205]enue [146]"
  191. 915 print"              [183][183][183][183][183][183][183][183][183][183][183][183]"
  192. 920 print"     [158] f1 [146]  [196]irectory sehen"
  193. 925 print"     [158] f2 [146]  [211]tundenplan laden"
  194. 930 print"     [158] f3 [146]  [211]tundenplan speichern"
  195. 935 print"     [158] f4 [146]  [198]loppy-[203]ommandos"
  196. 940 print"     [158] f5 [146]  [211]tundenplandatei loeschen"
  197. 945 print"     [158] f6 [146]  [200]auptmenue[155]"
  198. 950 gosub 670
  199. 955 e$="":get e$:if e$="" then 955
  200. 960 e=asc(e$)
  201. 965 if e<133 or e>139 or e=136 then 955
  202. 970 if e=133 then gosub 420
  203. 975 if e=137 then gosub 1020
  204. 980 if e=134 then gosub 1050
  205. 985 if e=138 then gosub 1085
  206. 990 if e=135 then gosub 1200
  207. 995 if e=139 then return
  208. 1000 goto 900
  209. 1005 :
  210. 1010 rem - stundenplan laden -
  211. 1015 :
  212. 1020 print"[211]tundenplan laden[146]"
  213. 1025 ein=1:gosub 385
  214. 1030 return
  215. 1035 :
  216. 1040 rem - stundenplan speichern -
  217. 1045 :
  218. 1050 print"[211]tundenplan speichern[146]"
  219. 1055 gosub 705:if ein=0 then return
  220. 1060 gosub 345
  221. 1065 return
  222. 1070 :
  223. 1075 rem - floppy-kommandos -
  224. 1080 :
  225. 1085 gosub 740
  226. 1090 print"[154]           [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  227. 1095 print"            [198]loppy-[203]ommandos [146]"
  228. 1100 print"           [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  229. 1105 print"     [158] f1 [146]  [203]ommando"
  230. 1110 print"     [158] f3 [146]  [196]isk-[205]enue"
  231. 1115 print"[155]":gosub 670
  232. 1120 e$="":get e$:if e$="" then 1120
  233. 1125 e=asc(e$)
  234. 1130 if e<133 or e>134 then 1120
  235. 1135 if e=133 then gosub 1165
  236. 1140 if e=134 then return
  237. 1145 goto 1085
  238. 1150 :
  239. 1155 rem - kommando -
  240. 1160 :
  241. 1165 lw=37:print"[151]>[158][164]";:ei$="":gosub 495:print
  242. 1170 if b$="_" then return
  243. 1175 be$=ei$:open 15,8,15:gosub 470
  244. 1180 gosub 215:close 15:return
  245. 1185 :
  246. 1190 rem - stundenplandatei loeschen -
  247. 1195 :
  248. 1200 print"[211]tundenplandatei loeschen[146]"
  249. 1205 open 15,8,15:gosub 475
  250. 1210 gosub 215:close 15:return
  251. 1215 :
  252. 1220 rem - stundenplan erstellen -
  253. 1225 :
  254. 1230 gosub 740:poke bs,27
  255. 1235 print"[154]         [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  256. 1240 print"          [211]tundenplan eingeben [146]"
  257. 1245 print"         [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][155]"
  258. 1250 for a=1 to 40:print"[163]";:next a
  259. 1255 print"[158]_[146]  [200]auptmenue    [158][195][210][211][210] down/up[146]  [193]uswahl"
  260. 1260 print"[158]^[146]  [198]acheingabe[155]   [158]*[146]  [203]orrektur
  261. 1265 [129] a[178]1 [164] 40:[153]"to";:[130] a
  262. 1270 nw[178].:dz[178]1:wz[178]1:ss[178]1
  263. 1275 sp[178]14[170]nw:[151] 211,0:[151] 214,14:[158] cs
  264. 1280 [129]wt[178]1[164]8:[153]""wt"cmd. (NULL)tunde am "wt$(ss)[163]25)"poke"w$(wt[170]ss[172]8[171]8):[130]wt
  265. 1285 [129] a[178]1 [164] 40:[153]"to";:[130] a
  266. 1290 [151] 211,25:[151] 214,sp:[158] cs:[153]""fa$(wz)
  267. 1295 [151]198,.:[146]198,1:[161] e$
  268. 1300 [139] e$[178]"" [167] wz[178]wz[170]1
  269. 1304 [139] e$[178]"*" [167] [141]1700:[145]c%[137]1290,1346
  270. 1305 [139] e$[178]"on" [167] wz[178]wz[171]1
  271. 1310 [139] e$[178][199](13) [167] w$(dz)[178]fa$(wz):sp[178]sp[170]1:nw[178]nw[170]1:dz[178]dz[170]1:[141]1730
  272. 1315 [139] e$[178]"^" [167]1350
  273. 1320 [139] e$[178]"_" [167] dz[178]99
  274. 1325 [139] wz[179]1 [167] wz[178]18
  275. 1330 [139] wz[177]18 [167] wz[178]1
  276. 1335 [139] dz[178]49 [167] ein[178]1
  277. 1336 [139] dz[177]48 [167][129] co[178]1 [164] 48:w$(co)[178]"poke"[170]w$(co)[170]"sys":[130] co:[142]
  278. 1340 [139]nw[178]8[167]ss[178]ss[170]1:nw[178].:[137]1346
  279. 1345 [137] 1290
  280. 1346 [129]zl[178]14[164]22:[151]781,zl:[158]zs:[130]zl:[137]1275
  281. 1350 [151] 211,25:[151] 214,sp:[158] cs:[153]"     cmdcmdcmdcmdcmdto";:ei$[178]"":lw[178]4
  282. 1355 [141] 495
  283. 1360 [139] b$[178]"_" [167] [142]
  284. 1365 [139] b$[178][199](13) [167] [153] [199](20):sp[178]sp[170]1:nw[178]nw[170]1:[141]1730
  285. 1370 [139] b$[178][199](13) [175] [195](ei$)[179]5 [167] ei$[178]ei$[170]" ":[137] 1370
  286. 1375 w$(dz)[178]ei$:dz[178]dz[170]1:[137] 1335
  287. 1380 :
  288. 1385 [143] - stundenplan sehen -
  289. 1390 :
  290. 1395 [141] 705:[139] ein[178]0 [167] [142]
  291. 1400 [153]"loadsys":[151] bs,11:[141] 555:[151] bs,27
  292. 1405 [153]"sys f1 wait  left$auptmenue   sys f3 wait  atnlles loeschen"
  293. 1410 e$[178]"":[161] e$:[139] e$[178]"" [167] 1410
  294. 1411 [139] e$[178]"h" [175] hard[178]0 [167] [151] 781,21:[158] zs:hard[178]1:[137] 1410
  295. 1412 [139] e$[178]"h" [175] hard[178]1 [167] [153]"ononon":hard[178]0:[137] 1405
  296. 1415 e[178][198](e$)
  297. 1420 [139] e[179]133 [176] e[177]134 [167] 1410
  298. 1425 [139] e[178]133 [167] [142]
  299. 1430 [139] e[178]134 [167] [151] 781,22:[158] zs:[137] 1440
  300. 1435 [129] al[178]1 [164] 48:[153]"load(NULL)oesche:";w$(al):w$(al)[178]"":[130] al:ein[178]0:[142]
  301. 1440 [151] 211,0:[151] 214,23:[158] cs:[153]"list(NULL)irklich alles loeschen ? [j/n]wait"
  302. 1445 e$[178]"":[161] e$:[139] e$[178]"j" [167] 1435
  303. 1450 [139] e$[178]"n" [167] [151] 781,23:[158] zs:[137] 1410
  304. 1455 [137] 1445
  305. 1460 [143]
  306. 1465 [143] - stundenplan ausdrucken -
  307. 1470 [143]
  308. 1475 [141] 705:[139] ein[178]0 [167] [142]
  309. 1480 [141] 305
  310. 1485 [141] 740
  311. 1490 [153]"cont        andandandandandandandandandandandandandandandandandandandandand"
  312. 1495 [153]"         (NULL)tundenplan drucken wait"
  313. 1500 [153]"        usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr"
  314. 1505 [153]"ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^";
  315. 1510 [153]"(NULL)atnlenleft$(NULL)(NULL)(NULL)chr$ ! str$er (NULL)tundenplan kann nur aufwait(NULL)";
  316. 1515 [153]"(NULL)(NULL)(NULL)(NULL) 801 und kompatiblen str$ruckern aus- wait(NULL)";
  317. 1520 [153]"(NULL)gedruckt werden. peekitte achten (NULL)ie auf wait(NULL)";
  318. 1525 [153]"(NULL)right$hren str$ruckertyp !!!                  wait(NULL)";
  319. 1530 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp";:[151] bs,27
  320. 1535 [153]"listright$st das (NULL)apier schon justiert ? [j/nwait]"
  321. 1540 e$[178]"":[161] e$:[139] e$[178]"j" [167] 1555
  322. 1545 [139] e$[178]"_" [167] [142]
  323. 1550 [139] e$[179][177]"j" [167] 1540
  324. 1555 [153]"open             right$ch drucke ..."
  325. 1560 [153]"             usrusrusrusrusrusrusrusrusrusrusrusrusrusr"
  326. 1565 :
  327. 1570 [143] - drucken -
  328. 1575 :
  329. 1580 [159] 1,4,7:[152]1,ps$;[199](0);[199](40);
  330. 1585 [152]1,bt$(1),"(NULL)(NULL)(NULL)(NULL)str$val(NULL)(NULL)(NULL)atn(NULL)",bt$(0);
  331. 1590 [129] i[178]1 [164] 3:[152]1,[199](13):[130] i:[152]1,bt$(1)
  332. 1595 [152]1,ps$;[199](0);[199](0)
  333. 1600 [152]1,[199](27);"3";[199](23):[143] inches
  334. 1605 [157] 1
  335. 1610 [141] 555:[152]1,[199](27);"3";[199](25):[160] 1:[142]
  336. 1615 :
  337. 1620 [143] - datas wochentage & faecher -
  338. 1625 :
  339. 1630 [131] "(NULL)ontag","str$ienstag","(NULL)ittwoch","str$onnerstag","ascreitag","(NULL)amstag"
  340. 1635 [131] "(NULL)athe","(NULL)usik","(NULL)urs ","(NULL)port","(NULL)unst","valrdkd","valngl ","str$tsch"
  341. 1640 [131] "(NULL)hysk","lenhem ","peekio  ","chr$esch","ascranz","(NULL)at  ","(NULL)elig","right$nfor"
  342. 1645 [131] "(NULL)irts","-----"
  343. 1690 :
  344. 1700 [143] **** korrektur ****
  345. 1702 [143] routine von nikolaus heusler
  346. 1704 [143] we apologize for any inconvenience
  347. 1710 c%[178]1:[139]dz[178]1[167][142]
  348. 1712 [141]1730:dz[178]dz[171]1:sp[178]sp[171]1:nw[178]nw[171]1:[139]nw[178][177].[167][142]
  349. 1714 nw[178]7:sp[178]14:ss[178]ss[171]1:c%[178]2
  350. 1720 [142]
  351. 1730 [129]n1[178].[164]4:[151]55281[170]n1[170]sp[172]40,11:[151]55321[170]n1[170]sp[172]40,11:[130]:[142]
  352. 1740 [129]n1[178].[164]4:[129]n2[178].[164]7:[151]55881[170]n1[170]n2[172]40,11:[130]n2,n1:[142]
  353.